home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / rbbs / rbbs_mpl.zip / DOORSYS.BAS < prev    next >
BASIC Source File  |  1992-07-03  |  10KB  |  136 lines
  1. ' $linesize:132
  2. ' $title: 'Proposed new SUB for Maple Street Version of RBBS-PC'
  3. ' $INCLUDE: 'RBBS-VAR.MOD'
  4. '
  5. ' $SUBTITLE: 'DoorSys - Makes a DOOR.SYS drop file'
  6. ' $PAGE
  7. '
  8. '  SUBPROGRAM NAME    -- DoorSys
  9. '
  10. '  INPUT PARAMETERS   --     PARAMETER                    MEANING
  11. '                         To be added later after finalization of merge
  12. '
  13. '  OUTPUT PARAMETERS  --  ???
  14. '
  15. '  SUBPROGRAM PURPOSE --  Create a DOOR.SYS drop file
  16. '
  17. 'DOOR.SYS Modification begins here per Kenny Gardner - author of GAP and the
  18. 'creator/cheerleader of DOOR.SYS.  Kenny told me that if RBBS-PC does not
  19. 'support the fields to put just a CR/LF which is what should happen here.  He
  20. 'said the doors are supposed to be smart enough to use their own default value
  21. 'if RBBS-PC cannot give it one.  If you take a look at QKDOOR you will find it
  22. 'also does things this way - I went to the source to confirm this! 8-)
  23. 'This merge creates both a DORINFO?.DEF and a DOOR.SYS....unless of course you
  24. 'comment out the above DORINFO?.DEF routines code...."Just Do It!" <BIG GRIN>
  25. 10    SUB DoorSys STATIC
  26.       CALL TimeRemain (MinsRemaining)                               'ER 06/05/92
  27.       Close 2
  28.       OPEN "O", 2, ZNodeWorkDrvPath$ + "DOOR.SYS"                   'ER 05/31/92
  29.       IF ZLocalUser THEN _                                      '(1)'ER 05/30/92
  30.          PRINT #2, "COM0:" _                                        'ER 05/30/92
  31.       ELSE PRINT #2, ZComPort$ + ":"                                'ER 05/30/92
  32.       PRINT #2, ZCBaud$                                         '(2)'ER 05/30/92
  33.       ZPosition% = INSTR(ZBaudParity$, "N,")                        'ER 06/17/92
  34.       PRINT #2, MID$(ZBaudParity$, ZPosition% + 2, 1)           '(3)'ER 06/17/92
  35.       PRINT #2, ZNodeFileID$                                    '(4)'ER 05/30/92
  36.       PRINT #2, ZTalkToModemAt$                                 '(5)'ER 05/30/92
  37.       IF ZSnoop = -1 THEN _                                     '(6)'ER 05/30/92
  38.          PRINT #2, "Y" _                                            'ER 05/30/92
  39.       ELSE PRINT #2, "N"                                            'ER 05/30/92
  40.       IF ZPrinter = -1 THEN _                                   '(7)'ER 05/30/92
  41.          PRINT #2, "Y" _                                            'ER 05/30/92
  42.       ELSE PRINT #2, "N"                                            'ER 05/30/92
  43.       IF ZSysopAvail = -1 OR ZSysopAnnoy = -1 THEN _            '(8)'ER 06/05/92
  44.          PRINT #2, "Y" _                                            'ER 06/05/92
  45.       ELSE PRINT #2, "N"                                            'ER 06/05/92
  46.       IF ZSysopAvail = -1 OR ZSysopAnnoy = -1 THEN _            '(9)'ER 06/05/92
  47.          PRINT #2, "Y" _                                            'ER 06/05/92
  48.       ELSE PRINT #2, "N"                                            'ER 06/05/92
  49.       IF ZGlobalSysop THEN _                                   '(10)'ER 05/30/92
  50.          PRINT #2, ZSysopFirstName$ + " " + ZSysopLastName$ _       'ER 06/05/92
  51.       ELSE PRINT #2, OrigFirstName$ + " " + ZLastName$              'ER 05/30/92
  52.       PRINT #2, ZCityState$                                    '(11)'ER 05/30/92
  53.       PRINT #2, ""                                             '(12)'ER 06/09/92
  54.       PRINT #2, ""                                             '(13)'ER 06/09/92
  55.       PRINT #2, ZPswdSave$                                     '(14)'ER 05/30/92
  56.       ZZ$ = STR$(ZUserSecLevel)                                     'RT070192
  57.       CALL Trim(ZZ$)                                                'RT070192
  58.       PRINT #2, ZZ$                                            '(15)'RT070192
  59.       ZZ$ = STR$(ZTimesLoggedOn)                                    'RT070192
  60.       CALL Trim(ZZ$)                                                'RT070192
  61.       PRINT #2, ZZ$                                            '(16)'RT070192
  62.       PRINT #2, MID$(ZLastDateTimeOn$, 1, 2) + "/" + _              'ER 06/05/92
  63.                 MID$(ZLastDateTimeOn$, 4 ,2) + "/" + _              'ER 06/05/92
  64.                 MID$(ZLastDateTimeOn$, 7 ,2)                        'ER 06/05/92
  65.       ZZ$ = STR$(INT(MinsRemaining * 60))                           'RT070192
  66.       CALL Trim(ZZ$)                                                'RT070192
  67.       PRINT #2, ZZ$                                            '(18)'RT070192
  68.       ZZ$ = STR$(INT(MinsRemaining))                                'RT070192
  69.       CALL Trim(ZZ$)                                                'RT070192
  70.       PRINT #2, ZZ$                                            '(19)'RT070192
  71.       IF ZWasGR = 2 THEN _                                     '(20)'ER 05/30/92
  72.          PRINT #2, "GR" _                                           'ER 05/30/92
  73.       ELSE PRINT #2, "NG"                                           'ER 05/30/92
  74.       ZZ$ = STR$(ZPageLength)                                       'RT070192
  75.       CALL Trim(ZZ$)                                                'RT070192
  76.       PRINT #2, ZZ$                                            '(21)'RT070192
  77.       IF ZExpertUser THEN _                                    '(22)'ER 05/30/92
  78.          PRINT #2, "Y" _                                            'ER 05/30/92
  79.       ELSE PRINT #2, "N"                                            'ER 05/30/92
  80.       PRINT #2, ""                                             '(23)'ER 06/09/92
  81.       PRINT #2, ""                                             '(24)'ER 06/09/92
  82.       PRINT #2, ZExpirationDate$                               '(25)'ER 05/30/92
  83.       ZZ$ = STR$(ZUserFileIndex)                                    'RT070192
  84.       CALL Trim(ZZ$)                                                'RT070192
  85.       PRINT #2, ZZ$                                            '(26)'RT070192
  86.       PRINT #2, ZUserXferDefault$                              '(27)'ER 05/30/92
  87.       ZZ$ = STR$(ZUplds)                                            'RT070192
  88.       CALL Trim(ZZ$)                                                'RT070192
  89.       PRINT #2, ZZ$                                            '(28)'RT070192
  90.       ZZ$ = STR$(ZDnlds)                                            'RT070192
  91.       CALL Trim(ZZ$)                                                'RT070192
  92.       PRINT #2, ZZ$                                            '(29)'RT070192
  93.       ZZ$ = STR$(ZBytesToday!)                                      'RT070192
  94.       CALL Trim(ZZ$)                                                'RT070192
  95.       PRINT #2, ZZ$                                            '(30)'RT070192
  96.       PRINT #2, ""                                             '(31)'ER 06/09/92
  97.       PRINT #2, ""                                             '(32)'ER 06/09/92
  98.       PRINT #2, ""                                             '(33)'ER 06/09/92
  99.       PRINT #2, ""                                             '(34)'ER 06/09/92
  100.       PRINT #2, ZSysopFirstName$                               '(35)'ER 06/05/92
  101.       PRINT #2, ""                                             '(36)'ER 06/09/92
  102.       PRINT #2, ""                                             '(37)'ER 06/09/92
  103.       IF ZReliableMode = -1 THEN _                             '(38)'ER 06/17/92
  104.          PRINT #2, "Y" _                                            'ER 06/05/92
  105.       ELSE PRINT #2, "N"                                            'ER 06/05/92
  106.       PRINT #2, ""                                             '(39)'ER 06/09/92
  107.       IF ZShareIt THEN _                                       '(40)'ER 06/05/92
  108.          PRINT #2, "Y" _                                            'ER 06/05/92
  109.       ELSE PRINT #2, "N"                                            'ER 06/05/92
  110.       PRINT #2, ""                                             '(41)'ER 06/09/92
  111.       ZZ$ = STR$(ASC(ZBankTime$))                                   'RT070192
  112.       CALL Trim(ZZ$)                                                'RT070192
  113.       PRINT #2, ZZ$                                            '(42)'RT070192
  114.       PRINT #2, RIGHT$(STR$(ASC(MID$(ZListNewDate$,2))),2) + _ '(43)   ' DOORSYS
  115.            "/" + _                                                     ' DOORSYS
  116.            RIGHT$(STR$(ASC(MID$(ZListNewDate$,3))),2) + _              ' DOORSYS
  117.            "/" + _                                                     ' DOORSYS
  118.            RIGHT$(STR$(ASC(ZListNewDate$)),2)                          ' DOORSYS
  119.       PRINT #2, LEFT$(ZTimeLoggedOn$, 5)                       '(44)'ER 06/05/92
  120.       PRINT #2, RIGHT$(ZLastDateTimeOnSave$, 5)                '(45)'ER 06/05/92
  121.       PRINT #2, ""                                             '(46)'ER 06/05/92
  122.       ZZ$ = STR$(ZDLToday!)                                         'RT070192
  123.       CALL Trim(ZZ$)                                                'RT070192
  124.       PRINT #2, ZZ$                                            '(47)'RT070192
  125.       ZZ$ = STR$(ZULBytes!/1000)                                    'RT070192
  126.       CALL Trim(ZZ$)                                                'RT070192
  127.       PRINT #2, ZZ$                                            '(48)'RT070192
  128.       ZZ$ = STR$(ZDLBytes!/1000)                                    'RT070192
  129.       CALL Trim(ZZ$)                                                'RT070192
  130.       PRINT #2, ZZ$                                            '(49)'RT070192
  131.       PRINT #2, "RBBS-PC is the Best!"                         '(50)'ER 06/05/92
  132.       PRINT #2, ""                                             '(51)'ER 06/09/92
  133.       PRINT #2, ""                                             '(52)'ER 06/09/92
  134.       CLOSE 2                                                       'ER 05/30/92
  135.       END SUB                                                       'ER 06/17/92
  136.